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The Charter of the COMMODORE PET USER CLUB is to provide a method of 
sharing up to date information, applications and programs relating to 
the PET Computer between the many PET owners and users. 


We would like to publish features from PET Users concerning specific 
applications, interesting discoveries or even bits worthy of sharing. 
If you would like to contribute to future NEWSLETTERS, please send 
your article, letter or comments to: 


THE EDITOR 

COMMODORE U.S. PET USERS' CLUB 
COMMODORE BUSINESS MACHINES, INC 
3330 SCOTT BLVD. 

SANTA CLARA, CALIF. 95050 


Editor Notes 


Dear PET User Club Readers: 


Due to a not so well known correlary to Murphy's law, we have combined 
Issue 4 and 5 into one JUMBO BONUS NEWSLETTER, containing over 44 pages 
of useful information. Because of these factors, please excuse the delay 
in receiving your NEWSLETTER. 


In our Data Exchange Section we will continue to answer your questions as 
presented. COMMODORE NEWS contains product information on our new PETs 
and Floppy Disk peripheral. Be sure to review in detail Part 3 of the 
BREAK-EVEN ANALYSIS program to be found in the SOFTWARE Section. Issue 
6 will contain the concluding article. The PERIPHERALS AND ATTACHMENT 
Section features a HAM Radio Interface which can turn your PET into a 
mini-communication center. Have you ever wanted to concatenate your 
programs or subroutines? If so, the PROGRAMMING Section contains the 
code you'll need (with Documentation). We have included information as 
provided by Len Linsay of the PET GAZETTE on quality a as and of every 
programmers major concern, PROTECTING PROGRAMS! 


As always, your comments are welcomed in our continuing efforts to mold 
this NEWSLETTER into YOUR NEWSLETTER. 
The EDITOR 
P.S. In Issue 3 one error should be recognized: 
Page 3, Figure 1 is missing two labels: 


LONG 
510uS 


BYTE 
680uS 


Data Exchange 


IN PURSUING BETTER COMMUNICATION WITH OUR USERS , THIS SECTION 
WILL COVER ANSWERS TO YOUR INQUIRIES NOT COVERED IN THIS NEWSLETTER. 


Mr. John F. Garbarino of Mystic, Conn., has two questions for us, 


Q. Is there any problem attaching the Single Drive Floppy Disk 
to the older PETS? 


A. To attach either the Dual Floppy (Model 2040) or Single Floppy 
(Model 2040A has replaced 2041) all that is required is a "Retrofit 
Kit" consisting of replacement ROMs. The Dealer who supplies you 
with your Floppy Disk can easily install these ROMs if you bring 

in your PET. 


Q. A small sample program, featured in one of your earliest 
brochures, was illustrating the PETS ability to Read cassette 
#1 and then PRINT (copy) on cassette #2. I have not been able 
to make it work. I did hear that the ST should be (ST) and the 
64 should be (64) in the line where it is doing a status check 
for read errors. I have the second cassette and would like to 
see a simple program to be able to copy a tape on the second 
cassette from the first cassette. 


A. The ST, you refer to, should be a 64 (EOF) when the copy 

is finished. Any other value means that the tape is bad. Please 
see page 80 of your PET USER MANUAL for the other status. Per 
your request a program for a tape copy follows: 


10 © OPEN1,1,0 :PRINT"FOUND FILE" 
20 OPEN2,2,2,"TEST FILE" 
90 GET#1,AS :IF ST<>0 THE 100 
40 PRINT#2,AS; :PRINTAS; 
50 GOTO 30 
100 PRINT ST 
110 CLOSE 1 :CLOSE 2 


The following question comes from a User in Winter Park, Florida, 
Mr. Jeffery Lewis Vida. 


Q. When I POKE 59411,60, it not only turns off the motor (of 
cassette) it shuts down the PET gompletely if I have any type of 
INPUT or GET afterwards. If a POKE 59411,53 is in the program 
after the POKE 59411,60 and before an INPUT or GET statement, 
Operation is normal. 


A. When you PEEK (59411) you will find a 61. When you POKE 
59411 with a 53 you change the 8th Bit of the location. But 

you Poked a 60 when you were at that location. This not only 
changed the 8th Bit, but also the lst. The first Bit is used 

to set interrupts. You turned off the interrupts so the keyboard 
stopped working. POKE a 61 instead, this will solve the problem. 
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+ Our final question comes from Danny Johnson of Hampton, VA. 


Q. I am using a read statement in a FOR-NEXT loop that goes 

from 1 to 680 with a lot of data statements that hold the 680 
numbers that I am reading. There is also a POKE in the loop. 

The purpose of the program is a hockey game with all the surface 
markings. The data statements hold the character numbers of the 
position of the symbols in the loop, it prints it out perfectly. 
But,’ when I try to get a particular symbol out, they are all wrong. 
I wrote a little test at the end of the program, and I found out 
that only the last few hundred symbols are right. Why? 


A. There is a bug in the BASIC in your PET. You cannot have 
an array with more than 256 (0-255) items. The wraparound is 
caused by the index Byte overflowing. When the Byte hits 255 
then it starts back to zero (0). 


The problem has been fixed in the new ROMs that you can buy in 


mid-Summer. If you do need more items than 255 use more than one 
array. (For more information on New ROMs see Newsletter No. 3) 


Ca a de a la a a oi OO TE 


Commodore News 








2040 FLOPPY DISK 








During April, New Product deliveries continued ahead of schedule with the 
release of our Model 2040 Dual Drive Floppy Disk. If you have already 
purchased one from your local PET Dealer, please make note that the follow- 
ing items have been enclosed: 


PRELIMINARY USERS MANUAL (53 PAGES) 
BUSINESS REPLY CARD 

WARRANTY FORM 

TEST/DEMO DISKETTE 


The final Users Manual is now being diligently constructed and will be 
shipped to those Floppy owners who send in their Business Reply Cards 
to COMMODORE. Be sure to send us your completed Wanrranty Form also. 
In Addition to being guaranteed your entitled warranty period, you will 
be kept informed of anything significant relating to this new product 
-bugs, attachments, and new Software. 


The TEST/DEMO DISKETTE contains : 


DUM 3.4 
DIAGNOSTIC BOOT 
COPY DISK FILES 
CHECK DISK 

PET DISK 


eries 





2040 FLOPPY DISK 





The first program, DUM 3.4 (Disk Utility Maintanence) permits you to perform 
the 2040 Disk Commands - NEW INITIALIZE, VERIFY, DUPLICATE, COPY, RENAME, 
SCRATCH by simply responding to PET inquiries. This program will be ex- 
tremely useful during your "START UP" period while learning the Disk Command 
Statement Formats. 


DIAGNOSTIC BOOT loads a program into the 2040 internal devices. Different 
combinations of the 2040's three LED's will lite to indicate a specific 
failure. 


The BASIC Program, COPY DISK FILES assists you in selectively copying any 
or all files from one drive to the other. This program features complete 
error handling, pattern matching and alphabetizing. 


CHECK DISK can be employed to adjust a diskette with a stubborn "Hard" error. 
During this process, all files are verified with the DOS (Disk Operating 
System) VERIFY COMMAND. Unused blocks are tested for error and if bad, they 
will be allocated so that DOS will ignore them during use. The CHECK DISK 
PROGRAM contained in the first few 2040's delivered had a small bug. A 
listing of the current version follows. If you wish to make note of the 
changes, please see your Preliminary Floppy Manual, page A-4. 


CHECK DIiISk WEF 1. = 


1 REM CHECK DISK -- VER 1.3 
i DN=8-REM FLOPPY DEVICE NUMBER 
S TIMTCLeas  DIMNS¢ iGo REM BAD TRACK. SECTOR ARRAY 


1G PRINT" Slee" TAB So "@CHECK DISK PROGRAM" 
26 INPUT" SIRIVE HUMBER TO BE VERIFIED Bane” s TE 
a OPENIS. 0.15 


BS PRINT#IS. ONDE 
$e Sigs Mi sea DRIVE "De 
45 MeeRHDC TI o#23 


aa A=!" FORTS 1 Tees: AS=AS+CHESE (SI SAND T+ ao HEAT 
GE GOSUE SEE 

re OPENS. DMs 2." 

Se PRINT > PRINTH#2. Ag: 

go T=1:S=8 

S@ FRINT#IS. "BA: "DS; 735 

1é@ INPUT#i5.EH. ENF. ET. ES 

Lig IFEH=8@THENISe 

115 IFET=@THENZ&a: REM END 


126 FPRIMT#15. "B-A:"DEsET: a T=ET : S=ES 

138 PRINT#15. "Us:2, "D8i7T3S 

134 HE=HB+1:>FRIHT "NUMBER OF BLOCKS CHECKED: Gea HE 

135 FRINT"CHECKING TRACE BRB T". SECTOR Fema STI" 
14@ [THPUT#i5.EN. EN#. ES. ET 

156 IF EM=8THEMSS 


166 Tédo=T st yo=o:J=J+] 
165 PRINT" SISBAD BLOCK: HM. 7.5 
1Pe GOTOES 


a PRINTHIS. "1" Ds 
i@ PRINT"MMMINIT DRIVE "De: GOSsuB9ae 
12 CLOSE2 


213 IFJ=G7HEMPRIMT' SMO BAD BLOCKS!" : END 
zi? OPENS. DAM. 2. "" 
21S FRINT SIBAD BLOCK SS". "STRACK". "SSeCTORe" 
eel FORT=8TO3-1 
eo FRINT#IS. "BAUS Te. Ti Tas geT3 
248 PRIHTs «Tela. SeTo 
mae MEST 
ZEG FRIHT SMT" BAD BLOCKS HAVE BEEN ALLOCATED” 
ere CLOSES: END 
SHG IMPUT#IS. EN. ENF. ET. ES 
S16 TF EM=8 THEN RETURH 
fH PRINT! SERROR #° EM. EMS. ET. ES 
SG FRINT#IS. "TDS 
“EAI 


The last program, PET DISK, displays a continuous demonstration of the 2040's 
key features - it may be the easiest way to explain to your friends or 
associates what this product is about. 


In order for our Users to use the Floppy as effectively as possible, future 
Newsletters will contain further information on this new peripheral. Next 
months issue will disclose addresses of some important variables and use- 
able subroutines. A program to concatenate BASIC programs will also be 
provided. 


If you have developed an interesting program for the Floppy, or if you have 
questions concerning the 2040, please send us your thoughts. We will be more 
than happy to integrate them into future Newsletters. 


NEW PETS 
4/8K VERSUS THE 16/32K 


Market response to the new GRAPHICS KEYBOARD PET (Model 2001-16N or 2001-32N) 
has been overwhelming. Withthe BUSINESS KEYBOARD PETS nearing production 
delivery,our Newsletter will begin to include information pertinent to those 
new products. There are significant differences between these units and 

4K or 8K PET. Once the obvious external differences have been noted (expanded 
PET keyboard or Standard Typewriter Keyboard - external cassette option) 
internal operating system differences are a bit more subtle. 


The CASSETTE interfacing addresshas been reversed on the new PETS so that 
the external cassette plug in the back panel is for CASSETTE 1 (rather 
than 2, as on the 4K or 8K units). If a second cassette is required on the 
new PETS simply open the PET and attach the Cassette Cable to the left side 
of the Main PCB. 


Payment amortization table 
year 1 
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REPEAT 





BUSINESS KEYBOARD MODEL 2001-16 or 32 


Keyboard entry is summarized below: 


POWER ON 
UNSHIFTED 
SHIFTED 

POKE 59468,12 


UNSHIFTED 
SHIFTED 


POKE 59468,14 


UNSHIF'TED 
SHIFTED 


4K/8K 


UPPER CASE 
GRAPHICS 


UPPER CASE 
GRAPHICS 


UPPER CASE 
LOWER CASE 


GRAPHIC 
16K/32K 


UPPER CASE 
GRAPHICS 


UPPER CASE 
GRAPHICS 


LOWER CASE 
UPPER CASE 


*See More in our next ussue on this Business Product. 
**Even though GRAPHICS keys are unlabelled, they are accessable in this mode 


with the exception of the following symbols: 


SOSOR C05 
Ovo 
CoQecca 

@eoae 

See@Orncic 

SE QGGOS 

QOS 2G 

SOOO 

161 
MIMCOIMERIM! ) 
omg 









Cae 


COI 





ACIC® 
Sco® 








OO 


Pome Oe TD ny nT 


SUT UC 
99092009 
AQEOSeeo 
BGO 09080 
G8 86 
162 . 
Sl OI BO = 
i. ie eC A 
@-O@c0@cgs 
CEG A 
Sce@c@en@s 
SOo@0@c@ 
O2@0@°Qo 
NBO E7@ 
166 


CUS EEE ac 







UC 
Cec ® 
COG GO”: 
o@c@c@oo 
CACO cu 
CAO 


CHC 





Cem cu cntacec 


SUI Cumacatoct 
CUE EU a 
163 
Ocn@sconn 
QQAQoco 
©@ Caceccan 
mh [ me Cc 


Qo 
Sr@nagnc 
Gogo 
220 
CC gaan 


CQ 
COQ mater 


CHOMTQ@ee 


PORT OR COR Sn 


er i Lee rma Teed eT 


CUCeTeCee ca 


Pa eT a es Pn 


acetates 





‘UIQ 


CURA CU 


Caematuc 


CUA 

O27 8°65@5 

TO SrOc@ 

S0O0OlQc 

NQcoecgr® 
168 





LLC 


CHC mit 
CHONG O OS 





BUSINESS* 
16K/32K 


LOWER CASE 
UPPER CASE 


UPPER CASE 
GRAPHICS** 


LOWER CASE 
UPPER CASE 












CooNeeee 
Oncgeee@ 
CHU @O@ 


CAUSE uC 
Wala 
CUS Cac ace 


CO Oe ac 











223 173 172 
GOOQU GG CO@occ  Oocubocon 
Sgggorce CO Qcalec i eum 
GQ@gucca Co goo COOgosoe Pim Wa YS | 
S000: CUCU GOBVSSEe mu fe cee Cemteleconuca 
tae pada pels cay Lent an Fa 












mum 









tid 


ae 









bare apa 





aagente 

221 187 
Cm @no  cam@cacn 
OoICg@oos  oon@aome 
sibs. cite CA QC cg 
os ts bees: ry 









DIME LOE 





ce eT aT a end Oe TT 
ee Sec 
see COT Cg ts CU Cunt 
170 L/L 189 


If required, the proper CHR$ (value) can be used to access these symbols. 
Keep in mind that this Product is aimed at the Business Application 
Market which will use canned programs developed on GRAPHIC KEYBOARD PETS. 


Basic program compatibility between the 8K and GRAPHIC - 16/32K PET, 
presents no problems unless a POKE 59468,14 (you have used lower case 
letters) is executed by the program. Although your program will function 
properly, the screen will reverse the whole of upper and lower case letters. 


The following proceedure will enable you to convert your 4K or 8K programs 
to run on a 16K or 32K GRAPHICS PET if: 


Ls 
2s 


Only POKE 59468,14 is in your program. 

Your program does not contain any other Machine Language commands 
which address memory locations that have been changed. (See 
revised Memory Map in the PROGRAMMING Section) 


To convert your program, just follow these steps: 


is 
ae 


If this is your first time through this procedure, '‘procede with step 3. 
If you have previously performed steps 3-9, LOAD the program you 

saved on cassette into PET Memory in the usual manner. 

Instructions for loading are as follows: 


A. Placethe cassette tape in the cassette unit with the desired 
side facing up. 


B. Push down the REW button on the cassette unit to rewind the tape 


to the beginning. When the cassette stops rewinding, push the 
STOP button on the cassette unit. 


C. Clear the screen by holding down while you press 
D. Type: LOAD | RETURN] 


E. Press down the PLAY button on the cassette unit. 


F. After the program has loaded, READY appears on the screen along 
with the cursor (the winking square.) 
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3s 


4. 


G. Press the STOP button on the cassette unit. 

H. Rewind the tape and remove it from the cassette drive. 
Next, procede with step 10. 

Type: NEW (this assures that the PET is cleared) 


Type in the following lines of code exactly as shown below. 


100 FOR I=0T099: READAS 

110 FORE826+I,VAL (A$) :NEXT 

120 SY826:STOP 

1000 DATA169,4,133,202,169,1,133,201 
1010 DATA32,89,3,160,0,196,202,240,13 
1020 DATA177,201,170,200,177,201,134 
1030 DATA201,133,202,76,66,2,96,160,4 
1040 DATA177,201,240,44,201,34,240,4 
1050 DATA200,76,91,3,200,177,201,240 
1060 DATA31,201,34,240,23,201,65,144 
1070 DATA243,201,91,144,8,201,192,144 
1080 DATA235,201,219,176,231,73,128 
1090 DATA145,201,76,103,3,200,76,91,3 
1100 DATA96,255,255,255,255,255,255 
1110 DATA255, 255,255,255,255,255,255 
1120 DATA255,255,255,255,255 


***BE SURE TO PRESS THE | RETURN|KEY AFTER TYPING*** 


THE LAST CHARACTER IN EACH LINE! 


Clear the screen by holding [sexe] down while you press [ Sot]. 
TYPE : LIST 


The lines you just typed in should be displayed on the screen. 
Check each line carefully for typographical errors. If you 
find an error, correct it. Refer to Chapter 3, screen editor 
section of your PET Users Manual Model 2001-16/32 if you require 
additional information. 


Repeat steps 5-7 until step 6 yields an exact duplicate of the 
listing given in step 4. This sequence guarantees that the program 
has been properly entered into PET Memory. 


Save and verify this program on a blank cassette tape according 
to the following directions. 


A. Place the cassette tape in unit with the desired blank side 
facing up. 


B. Push down the REW button on the cassette unit to rewind 


the tape to the beginning. When the cassette stops rewinding, 
push the STOP button on the cassette unit. 
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10. 


li. 


K. 


Clear the Screen by holding | SHIFT | down while you press [Sera 
Type: SAVE 


PET will display: 
PRESS PLAY & RECORD ON TAPE #1 
Do exactly that. 


PET will then display: 
OK 
WRITING 


As soon as the program is saved, PET will add the word READY 
to the display and the cursor will return. When this happens 
push down the STOP key on the cassette unit. 


Rewind the tape back to beginning, and then push the STOP key 
on the cassette unit. 


Clear the screen by holding down while you press | Gols |. 
nype: VERIFY 


The PET will then display 
PRESS PLAY ON TAPE #1 
After you do so, PET will display 
OK 
SEARCHING 


Phen after a moment, 
FOUND 
VERIFYING 
will be added. Shortly thereafter the screen will show: 
OK 
READY 
and the cursor will return. 
Note: Should the screen display 
? VERIFY ERROR 
repeat steps B-J again using the same cassette. 


Rewind the tape and remove it from the cassette deck. 
Label it 8K to 16/32K Modification Program. 


Type! ron (REROR] 


This results in a Machine Language subroutine being stored in the 
second cassette buffer. 


If this step causes your PET to malfunction, it most likely indicates 
a typographical error in one of the data statements. Turn your PET 
off and on. Load the program from cassette and procede with step 5 
to correct the mistake. 


After the cursor returns, type: 


NW [RETURN] 


a Ba 


12. To load the program you wish to modify, follow the loading instructions 
A through H in step 2 of this procedure. 


13. When the program has finished loading 
READY 
will be printed on the screen and the cursor will return. 


Should a LOAD ERROR be encountered reload the program to be modified 
as instructed in step 2 of this article. 


14. After the program to be modified has been loaded successfully typedi 


syss26 | RETURN | 


15. Instantly, 


READY 
will be displayed and the cursor will return. 


16. In order to prevent having to repeat this process next time you 
want to use the modified program, save the revised program on a blank 
cassette, as shown in step 9. From then on, all you need to do is 
load the revised program from cassette and type RUN. 


Note: Unless you use the second cassette, or turn your PET off, the 
Machine Language Modification Program will remain in the 
second cassette buffer. Therefore you can revise other pro- 
grams by executing steps 11-16. 


The revised Program is now ready to run. While the program is running, your 
keyboard will work like a typewriter: i.e. upper case. 








BUSINESS KEYBOARD VS. GRAPHICS KEYBOARD 








Upon scanning the Business Keyboard photograph, you will note the following 
new keys: 


TAB 
ESC 
REPEAT 


TAB and ESC generate legitimate control characters according to ASCII code. 
These keys may be scanned with the GET command and a value processed in a 
string variable. 


TAB (ascrtI CODE 9) 
ESC (ASCII CODE 28) 


REPEAT has not been implemented at this time and does not correspond to any 
ASCII code. 


The major difference between the business and graphics keyboard is in the 
‘location of numerics and punctuation. Numerics are not only located ina 

pad on the right hand side but in the top row of the keyboard as well. The 
symbols located in the top row on the graphics keyboard are accessed by shift- 
ing the top row numeric keys on the business keyboard. 


Cursor and screen editing keys are grouped around the RETURN key on the main 
keyboard. 


now controls scrolling speed as opposed to 
as on the graphics keyboard. RvS 


| ‘SHIFY Ee still generates a LOAD RUN sequence but this is now displayed 
as Lo and Ru respectively. 
SHIFT has been added. When this key is down, BASIC will ignore all commands 
LOCK 


because it recognizes only the ASCII codes which print as lower case. 


PRINTERS 
In our next issue, we will preview the Model 2022 Tractor Feed Printer and 


the Model 2023 Friction Feed Printer. As projected in our first issue, Model 
2023 deliveries will begin in May. 


~ 
RSPR RAN NN NN NN NNN NNN SN NNN NII II IID IDES BRAD ADAG AI RB RD RID RYDE SDL 


Software 


NEW SOFTWARE 


IN CONTINUING TO BRING YOU AN EXPANSIVE LINE OF SOFTWARE, WE HAVE 
LISTED NEW OVERSEAS PROGRAMS AND THEIR CURRENT COST. FOR THE 
DESCRIPTION OF THESE PROGRAMS PLEASE SEE VOLUMN 1 ISSUE 3 OF THE 
NEWSLETTER. 














PROGRAM NAME PROGRAM NUMBER PRICE 
BOOKS 321040 $19.95 
BACKGAMMON 321041 $ 9.95 
USER PORT COOKBOOK 321042 $ 9.95 
BASIC STATISTICS 1 321044 $24.95 
BASIC STATISTICS 2 321045 $14.95 
STRATHCLYDE BASIC COURSE 321046 $14.95 
STRATHCLYDE BASIC WORKBOOK 321047 6 5.95 
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OTHER OVERSEAS SOFTWARE WE OFFER ARE: 














ROCKSTOCK 321019 $29.95 
ARDENSTOCK 321.023 $24.95 
COSTING 321024 $19.95 
DATA BASE UTILITY 321025 $24.95 
SURVEY ANALYSIS 321026 $14.95 
SNARK 321027 $19.95 
DISASSEMBLER 321028 $24.95 
MACHINE CODE HANDLER 321029 & 9.95 
HEX EDITOR AND LOADER 321030 5.9295 
LEAST SQUARES S2L031 $ 9.95 








SOFTWARE REVIEW 


SNARK, A SUMMARY by M. Pipes 


The program SNARK originally comes from our overseas office, but 
is now available in the United States. The program SNARK allows 
you to write, assemble and execute programs in the language of 
the SNARK Machine. 


It emulates a sixteen-bit computer, with two sixteen bit accumu- 
lators and a nine-bit program counter. 


The Machine has sixteen instructions: 


LOAD OR 

STORE AND 

ADD JUMP 
SUBTRACT BRANCH ZERO 


BRANCH not ZERO BRANCH POSITIVE 
BRANCH NEGATIVE RIGHT SHIFT 
INPUT 
END 





There are four addressing schemes, immediate, absolute, indexed 
by accumulator A, and indexed by accumulator B. 


When you write a program you enter an address, and an operation, 
For Example: 


g INA 
1 OUT 
2 END 


This SNARK Program will print out any number that is input to it. 
You may list and modify a program at any time. 


When the program is assembled SNARK informs you of any errors you 
may have in the program, and allows you to make required changes. 
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One of the best features of this program is the capacity to display 
and single-step the program during execution. 


The display is a trace which prints the address, instruction, and 
the contents of both accumulators. 


The single-step allows you to run the program one instruction at a 
time; a useful debugging tool. 


We have found SNARK to be a very useful program for understanding 
machine-language programs. It's IS ( Instruction Set) represents 
a part of the IS of nearly every computer. A SNARK Program could 
easily be converted and re-assembled to run on almost any machine 
allowing easy development of support software. For ordering SNARK, 
and other overseas programs, please see our Software Section. 





FEATURE PROGRAM 





BREAK-EVEN ANALYSIS Part 3 by J. Parsons/C. Westfall 


In Volume 1, Issue 2 of our Newsletter, Break-Even Analysis was 
listed on page 10. The program features the "form' method of 
entering and displaying data; which provides a quick and easy 
method of entering and editing data. The programs contain several 
modules which with slight modifications can serve many functions. 
The printing of the 'form' was described in Issue 2. Issue 3 
discussed the control of data from the form. 


Variable Value of description of it's 
name function 
A Field row position on screen 
B Field column position on screen 
Cc Field length 
D Position of the cursor within a field 
a The number of the field 
TE The total number of field 
AS Home plus 25 cursor downs 
BS 25 cursor left's 
cs 40 spaces 
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D$ 


S$ 


ws 


4$ 


Edits the Input 


Line Number 


2000 


2005 


2010 


2020 


2030 


Input from the keyboard 


Input from the screen when a field 
is excited. It equals the number 
printed on the screen. 


Return + cursor up + cursor down + 
clear home + home + delete + cursor 
left + cursor right + space + insert 


Leaet#eovyeses 


Function 


This line clears the keyboard buffer. It 
continues to 'GET' characters from the buffer 
until the GET yields a null. 


LETTS (AS,A) moves the cursor down the field 
row position. 


SPC(B) moves the cursor to the right, B spaces 
to the field column position. 


GET#3 stores the character in row A, column B 
of the screen in TS. 


The cursor is then moved back one space so it 
remains in row A, column B. The semicolon 
surpassed the carriage return for the next 
PRINT statement. 


A- is printed in row A, column B on the screen 
and the cursor is again moved back to its original 
position. 


The FOR NEXT loop scans the keyboard 50 times for 
input. If a character is received it is stored 
as DS and the IF THEN conditions of 2020 and 2030 
are not met. In this case the program jumps to 
line 2040. 


However, if no input is received (from the key- 
board); this line prints the character T$ (taken 
from the screen) and a cursor back. The keyboard 
is again scanned 50 times for input. 


If no input is received in 2010 or 2020 the pro- 
gram loops back to line 2010. These three lines 
simulate a cursor using a (-) rather than the 
blinking square. In lines 2010 and 2020 the ‘GET 
command is executed 50 times. 


50 is an arbitrary setting the flash rate of the 
simulated cursor. 
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2040 


2050 


2060 


2070 


2080 


2085 


2090 


DS (the unput from the keyboard) is compared to 
each character of the string Y$ i.e. it is check- 
ing to see if the input was numeric (a decimal 
being numeric). 


It only executed if D$ is numeric and transfers 
control to Zitt. 


Compares DS with each character in WS$ which 
contains cursor movements, editing functions 
and the return. 


Should D$ not be contained in WS, then T will 
have a value of 11 when the FOR NEXT loop has 
been completed. 


The ':GOTO 2010' at the end of this line is 
not needed and should be deleted. 


If DS is one of the first five characters in WS, 
then this line will jump you to 2200, as the 
value of T will be less than five. 





Value Control jump 
o£. T Character to line 
6 delete 2090 
7 cursor left 2100 
8 cursor right 2110 
9 space 2110 
10 insert 2085 
LL if D$ is not equal 2010 
to any character in 
ws. 


Is only executed when insert is typed. Insert 
clears the character under the cursor and all 
characters to the right of it. D is set equal 
to D-l to keep track of how many spaces remain 
in that field. 


GOSUB4000 - contains the routine which prints 
the spaces to clear the field. 


GOTO2010 begins the simulated cursor routine 
and allows input from the keyboard. 


D$ is set equal to a cursor left; space and 
cursor left. This simulates a delete by 
printing a space over the character to be 
deleted. 


I 


2100 


2110 


2200 


2210 


2220 


vv Ve 


This line is executed for both a delete and 
cursor back. It sets D=D-2 which points two 
spaces to the left of the cursor position 
BEFORE delete or cursor back was typed. 


If D becomes less than zero, the cursor back or 
delete moved you out of the field and program 
control jumps to 2200. 


If the cursor remains in the same field it prints 
the last token taken from the screen (T$ in line 
2005), a cursor back, and DS$ (character received 
from keyboard). 


Next it GET's TS from the screen and checks to 
see if it's at the end of the field. If it's not, 
control goes to 2010 to allow more input. 


Should the field be filled to capacity or your 
command requires a field change, lines 2200-2230 
are executed. 


If the last token taken from the screen has been 
changed it is flashed on the screen. 


If the cursor movement moved you out,the left end 
of the field D would be less than one. So it is 
reset to one for use in the next lines. 


LEFTS(B$,D) tabs back to the beginning of the 
field being excited. S$ is set equal to a null 
set. 


The FOR NEXT loop contained in lines 2220 and 
2230 GET'S each character from the screen in that 
field as TS and concatenates them in a string of S$. 


RETURN return control to line 50. 


DDI DDD GRD DDD DDD DDN DDD DDN DDD DD DDO NOV OV V PV VP V VV VY 
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PUBLICATIONS 





In continuing with last months PUBLICATIONS Section we have more 
books of personal computer information for you. If your local 

PET dealer or bookstore does not carry the title you're interested 
in, contact the publisher directly. Also, if you've read a book 
regarding personal computers and would like to send us your review, 
we'd be more than happy to look at it! 


A CONSUMER'S GUIDE TO PERSONAL COMPUTING AND MICROCOMPUTERS 
by Stephen Freiberger and Paul Chew 


Unlike most books reviewed in the past, A CONSUMER'S GUIDE TO 
PERSONAL COMPUTING AND MICROCOMPUTERS, involves reviews and 
evaluations of 64 microcomputer products from over 50 manufacturers. 
It also informs you of what to look for when purchasing a micro- 
computer and its' peripherals. As if this isn't enough to fill 
one book, it also expands on the fundamental principals and de- 
finitions in conjunction with the personal computer. 


87«95 Hayden Book Co., Inc. 
164 pages Publisher:Rochelle Park, New Jersey 


BASIC PROGRAMMING FOR BUSINESS 
by Irvine H. Forkner 


As the title denotes, BASIC PROGRAMMING FOR BUSINESS deals mostly 
with Business Applications. The development of this book gives 
the novice an understanding and appreciation of the electronic 
computer. It would be an excellent source for teachers, as it 
keys on learning BASIC and not on deciphering the problem and its 
solution algorithm. 

Prentice-Hall, Inc. 
$11.50 Englewood Cliffs 
237 pages Publisher: New Jersey 07632 


PERSONAL COMPUTING, HARDWARE AND SOFTWARE BASICS 
AnElectronics Book Series 


If you are a serious personal computer buff, this book shows 

you the contemporary phenomenon now in the microcomputer field. 

It represents a wealth of technical details and know-how, telling 
you how to make use of this technology, what methods are available 
to perform various tasks, what other engineers are doing and 

just how they are doing it. 


Mc Graw-Hill 


$14.95 1221 Avenue of the Americans 
266 pages (Hardcover) Publisher: Suite 26-1 N.Y. N.Y.10020 
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Peripherals & Attachments 








ADDING THE PET TO A HAM SHACK 








According to Ron Lodewyck, President of Macrotronics, the PET makes an 
ideal HAM communications terminal for several reasons. First, the 
compact integrated design eliminates exposed wiring cables, thereby 
reducing susceptibility to RF interference. Second, and most impor- 
tant, the metal cabinet of the PET shields the RF generated by the 
microprocessor and virtually eliminates any RF "HASH" from being 
picked up in the receiver. This factor, together with the compact 
size of the PET, makes it convenient to place the PET within easy 
reach of the station's radio equipment. 


M650 HAM INTERFACE 


The M650 is a deluxe RITY and MORSE system which converts the PET 
into one of the finest communications terminals ever developed for 
the amateur radio operator, It provides both send and receive capa- 
bilities in MORSE, BAUDOT and ASCII Modes. Let's take a look at same 
of its features. 


RITY SOFTWARE -- written by Wayne Reindollar 


1. Three level split screen display. A "Transmit Buffer" is displayed 
on top 10 lines. A "Receive Buffer" is displayed on bottam 10 lines. 
The middle 2 lines display characters as they are being sent over the 
air, With this system, you can type ahead into the transmit buffer 
while you are simultaneously receiving an incoming message. You have 
full edit control of the transmit buffer while in the receive mode, 
allowing the composed message to be corrected or deleted before it is 
transmitted. When the incoming station turns it over to you, enter 
the send mode (one key) -- the transmit buffer will start sending and 
will be displayed in the center of the screen as it is sent over the 
air, You may continue typing ahead into the trasmit buffer which 
will still be displayed on the top of the screen. 


2. Word Oriented Editor. The transmit buffer is sent a word at a time. 
The word will not be transmitted until the space character is entered, 
Thus, even in the send mode, you will be able to edit the last typed word 
before it is sent over the air. 


3. "Instant Replay". You can send all or part of the received message 
back to the sending station at the press of a single key! 


4, Message Library. This feature allows you to save incoming messages on 


the PET's built-in cassette and play them back at a later time or date. . 
Traffic handlers (especially 'MARS' operators) take note! 


ral 


5. ASCII or BAUDOT. The M650 lets you select ASCII at 110 BAUD or 
BAUDOT at 60, 67, 75, or 100 wom. If you have a good general coverage 
receiver you will be able to copy both amateur and commercial RITY sta- 
tions. 


6. Auto CW ID. Sends 10 message (keyboard programmable) in MORSE 
code at the end of the transmission, then automatically transfers to 
the receive mode. 


7. Eight message memories. You can program CQs, test messages (RY, 
quick brown fox, etc.) and station descriptions for instant one key 
recall. 


8. Automatic time. Sends the present time in UTC at the press of a 
key. 


9. Auto transmitter control. Keys push-to-talk line automatically 
on send, unkeys on receive. Permits full station control from the 
keyboard. 


10, Auto 10 minute ID. Automatically inserts CW ID message every 10 
minutes from start of send mode. The buffer will be preserved and 
automatically resumes sending where it was interrupted. Keeps you 
legal during those ‘long-winded' QSOs! 


ll. Auto CR/LF. Automatically sends carriage return and line feed 
every 72 characters. No need to ever manually type carriage return! 


12. Auto Didle. Sends "LTRS" character whenever transmit buffer is 
empty. May be turned off from the keyboard if desired. 


13. Mark/Space Tone Reverse. If the incoming station is "Upside down", 
you can reverse his signal from the keyboard. 


MORSE SOFTWARE -- written by Ron Lodewyck 


1. Speed, The speed is entered from the keyboard and can be any number 
in the range from 1 to 100 words per minute. This setting determines 

the sending speed and also initializes the receiving speed. The algorithm 
used on receiving automatically adjusts to incoming speed variations of 
approximately plus or minus 10 wom., depending on the quality of the 
signal. The program will compensate for variations in the dit, dah and 
space ratios to permit copying most hand sent code. The translated code 
appears as text on the screen of your PET. 


2. Message Memories. You can program any of ten messages of up to 255 
characters each at any time for later replay. Common uses would be for 
CQ's station descriptions, I.D. messages and contest exchanges. 


3. Code practice. A Morse code trainer is also included as part of the 
CW package. You select the speed and whether you want random charac- 
ters or random five letter words. The PET then sends the code continuous- 
ly on the built-in sidetone oscillator. The words are ham radio related 
and are randomly selected from a table. Examples of the words generated 
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include plate, final, morse, diode, Italy, tubes. Since the words 
appear in random order, It is not possible to memorize them (as 

is the case with cassette oriented code practice tapes). Furthermore, 
the speed is continuously adjustable, permitting fine upward adjust- 
ments as code proficiency is gradually developed. 


4, Special characters. In addition to the alphabet (a-z), and 
standard punctuation ( -?,. ), the CW program can also transmit the 
following special characters: AR AS SK KN ERROR. 


Hardware 


The M650 is enclosed in an attractive cabinet and is easy to install 
with the connectors provided to the PET user port and second cassette 
port. AN led on the cabinet panel is synchronized with the incoming 
signal to provide a visual indication of proper tuning. Connection 

to amateur radio equipment involves simply attaching to the receiver's 
headphone jack or speaker terminals and the transmitter's CW jack. 

For RTITY, connect to FSK or AFSK keying circuits (the AFSK unit is 

not included), or connect in series with a local loop using the optically 
isolated loop module (included). An external terminal unit is recommend- 
ed for optimal performance, especially on HF amateur and commercial 

RIT 


A complete 20 page instruction manual is part of the package. It in- 
cludes setting up, operation, adjustments, schematics, hints and kinks, 
trouble shooting and even a program to use the M-650/PET as an alarm 
clock! 


M65 HAM Interface 

The M65 is a lower priced version of the M650 HAM interface, It uses 
exactly the same Morse software, but a less sophisticated RITY pro- 
gram. The hardware interface is sold "bareboard" (not enclosed in a, 
cabinet). It is available in either kit or wired and tested, 


Both the M650 and M65 HAM interfaces are available from many PET 
dealers or by writing direct to: 


Macrotronics, Inc. 
P.O. Box 747C 
Keyes, CA 95328 


a tt tt tate tc ete a tp Te ran tn an tn an Ue ray Un ry tn ty tn cis ty in hin ate te tin tt a tt tate 
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Applications 


In our previous NEWSLETTER we offered $100.00 worth of free Master 
Library Software to the best "HOUSEHOLD" Application received be- 

fore May 25, 1979. Next months application, which will be due by 

June 26, 1979, should deal with the creation of a "DESK TOP CALEN- 
DAR". 


An explanation for those of you who did not subscribe in time to 
receive the previous issue of the NEWSLETTER follows. Each month 
we will be soliciting specific categories of Software. After they 
have been received they will be evaluated and the "winner" will 
receive $100.00 worth of free Master Library Software. Or you may 
wish to compete internally with your local USER Group, or compete 
with another group in your city. 


This by no means should stop you from submitting your Application 
Program just because it doesn't fall within this month's category 
-send it in and it could be published on its own merit. 


Please send all programs that are competing to: 


THE EDITOR 

COMMODORE BUSINESS MACHINES 
3330 SCOTT BLVD. 

SANTA CLARA, CA 95050 


SRI SRD RD DGD DDD DDD DDD DDD DDD VDDD DVD DDD DVD VV VV VV VV VV VV VV VV VV VV VV VY 


Programming 


THE APPEND WEDGE (For 8Ks only) by B. Seiler 


The APPEND WEDGE is an excellent program to append one BASIC 
Program to another. This special characteristic allows you to 
have a set of general purpose subroutines and 'tack' them onto 
any program. One draw-back though; the line numbers must be 
in order. 


Because the edification of this listing is quite complete, you 
may wish to read through the listing first, and then commence 
to programming. 


ENTERING THE "APPEND WEDGE" 


1. First load the MACHINE LANGUAGE MONITOR Commodore Part No,321000 
2. Use the MONITOR to enter the machine code into the second 
cassette buffer. Hex §33A to §3FF 

3. Use the "X" command to return to BASIC . Type "NEW" (return).., 
4, Enter the BASIC PROGRAM. Lines 19 thru 239 are all that are 
necessary to LOAD, RUN, and SAVE "APPEND WEDGE". 

5. Basic Lines 190% thru 99MM are just the instructions. 

6. To SAVE the original copy type RUN 10%. This will save the 
Machine Language along with the BASIC Program. 


24 


ETE fe 3 Th ee 
AO a I A | 


foacte 
fancte 


PR Pad ee ee ee eee ee eee ee EE ce i i Ee tale Pa ee Ra a Po Ee a 
Oe PT Tp Be te Pee ee ee hace Oe me TE Pe Pee ee a ee Pee ee Ee ae Re Ee ee Ee ee ee ace ee ee ee 


eit Fe iE 


ems fete Breste ate Jorate fonts Bole Grants festa Grants feet fete Goats feats fenets fete Benet Beate fete Beate fate Beate Sete fet Fe le fee fete fee fe ate fete fete fete fete fee Be ft’ PO Php ete pe te et fe Be ee pe 
Tee ale thes eRe ee ee ee ee ee Ee 


re Fee Oat Cee ale ale et ale te elk tle Pn Pek fxs fee Pe fae fe, 


fete Me Age he eT LP ot 


id 
1436 
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‘See ¢ MEM 

REN aa 

REM # i 

REM # TO SAVE TYPE RUM 1aG 

REM 

REM Joaaaiaaanadenbiscbeiiaaiak 

FORESS41.1 

FORES4S 7. 38: POREZ4S. 3 

B=FEEKC led): POKESZ9. 5 

B=PEEKC LSS): POKESSO. 

REM aaok FIND SAVE NAME aks 

Aeé= abut 

AS=STRECPEER C LS@0+256ePEER C1519) 

AaVAL CAE > 

Ag="APPEMD WETIGE" 

B=FEEK CA POKESSS. B 

B=FEERCA+1 3: POKESSS. B 

B=PEER (A+ 2 PORESSG. 

SYS63153 

EMD 
PET RAR SE ESE SE SESE ESR SEERA EE EO a a a a ae 
REPL * 
REM # FOR IMSTRUCTIONS RUM Lge & 
REM # * 
EET] ESERIES AEA ASE AR ES AR PE 
FRIMT' SI" 
FRIHWT" W APPEND WEDGE 8 COMMAND " 
FRIHT > PRINT > PRINT 
FRIHT" THIS PROGRAM ADDS AW EXTRA COMMAND 
PRIMT"TO PET BASIC. THE EXTRA COMMAND 1S 
PRIHT"TS CALLED @APPENDT. APPEND! ALLOWS THE 
PRIHT"USER TO JOIN SEFERATE BASIC FROGRAMNS. 
PRINT" APPEND COULT BE USED TO LINK TESTED 
PRIHT"SUBROUTIHES TO A HEM MAIN PROGRAM, 
PRINT" THE SAPFEMTM COMMAWD IS ADDED To 
PRINT" BASIC BY PLACING A WEDGE IN THE ZERC- 
PRIMT"PAGE CODE USED TO SCAN ALL LINES. 
PRINT" THE WEDGE IS FORCED BY LINE 1& AND THE 
PRIHT"PROGEAM AREA IS CLEARED BY A NEW, 
FRIHT" THE MACHINE CODE FOR SAPFENDM@ SITS 
PRIHT"IM THE SECOND CASSETTE BUFFER. THIS 
PRIHT" BUFFER IS FROM @33A HEX TO @46e HEX OF 
PRIMT' JUST BEFORE THE BASIC SOURCE. TO SAVE 
PRINT" SAPPEMTM THE SECOWD CASSETTE BUFFER 
PRIMT'AUST BE SAVED WITH THE BASIC SOURCE, 
GOSUESEaEA 
PRT T  Sietede) THE BASIC LINES 186 TO 236 PERFORM 
PRINT" THE TOTAL SAYE. LINE 16@ SETS THE 
PRIHT"FIRST ADDRESS FOR CASSETTE #1. LINE 
PRIHT"1i8 SETS THE LO AND HI BYTES FOR THE 
PRINT'START ADDRESS OF THE SAVE TO @33A HES. 
PRIHT"LIHES 126 AND i3s@ SET THE END ADDRESS 
PRINT"FOR THE SAVE TO VARTAB. YARTAR FPOIHTS 
PRINT"TO THE ENT GF BASIC SOURCE, 
PRINT" A SFECIAL TRICK IS USED To) MAKE THE 
PRINT "MANE FOR THE SAVE. LINES 146 THRU i? 

8 PRINT"LOCATE THE LENGTH AND ADDERSS POINTER 

H PRINT"USETD BY BASIC FOR STRING Ag, 

A FRINT"LINE 188 MARES AF EQUAL TO THE NAME FOR 


Dee 
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14548 
1468 
i4?a 
i486 
i436 


PRINT" THE SAYE. LINE 198 SETS THE LENGTH OF 
PRINT"A$ FOR THE SAVE. LINES 286 AND Zia SET 
PRIMT"THE ADDRESS OF At FOR THE SAVE NAME. 
PRINT"FINALLY LINE 228 CALLS THE OPERATING 
PRINT'SYSTEM ROUTINE TO DO THE SAVE. 


288 GOSUESAE 

1666 PRINT" Celetel TO ACTIVATE THE SAPFEND® COMMAND 
1616 PRINT"TYFE SUNS, 

1628 PRINT" Sl TO SAVE THE SRPPEND® COMMAND AND 
1638 PRINT" INSTRUCTIONS TYPE @RUN 1Gem, 

1646 PRINT" Sis WARNING " 

1656 PRINT" sl THE SAPPENDM@ COMMAND DOES HOT FIs 
1666 PRINT"LINE NUMBERS! APPENDING PROGRAMS WITH 
ler PRINT"LINE NUMBERS OUT OF ORDER WILL HAVE 
1686 PRINT"STRANGE RESULTS WHEM RUM, 

1638 PRINT" USE PET RENUMBER TO FIX SEGMENTS 
1fB6 PRINT" BEFORE APFENDING. 

1366 GOSUESeae 
2BGG PRINT SSYHTAX FOR SAPPEND® COMMAND 
2610 PRINT 
2H20 PRINT" SAPFEND "CHRECS49"PROGRAM MANE" CHRE< 343 
2638 FRIHT"t ft t 
eb4ea PRINT" | | | meen 
2A5G PRINT" | | “| MANE OF PROGRAM ON TAFE | 
2e68 PRINT" | | 1 #1 YOU WISH TO APPEND | 
2eF°H PRINT" | |. 1 TO THE FRESENT PROGRAM | 
2638 PRINT" | | 1} IN PET MEMORY | 
2698 FRINT" | | | | 
21@8 PRINT" | | 1 IF OMITTED THE HEXT | 
2116 FRINT' | | | FROGEAM ON TAPE #1 WILL | 
2128 PRINT" | | | BE APPENDET | 
213@ PRINT" | | Beene 
2148 PRINT"! | 
2150 PRINT’ | bes 


A PRINT" | 4 COMMAND NAME - A FOR SHORT | 
4 PRIWT" | Renner tle setae eel 
Ho PRINT" | 


: ci iT ge as ana. A ea a ae | 
2136 PRINT" 4 PROMPT CHARACTER MUST BE | 
22eBe PRINT" | IN FIRST COLUMW OF LINE | 
ee Cie | Sateen rnesinecinierminete pimraalin eect 
2388 GOSUBSGGR 
S888 GOTOLEGE 
SEGRE PRINT" Sieeleleleleleleleleteleteletetereteteleteiey" ; 
3818 PRINT" M@ HIT ANY KEY TO CONTINUE @"; 
S828 GETAS: IFAS=""THENSeSH 
SE30 RETURH 

REAL. 


AFPEND 


LINE 


Ooo? 
OOS 
Ooo4 
Ooos 
OOOD4A 
Ooo7 
OOoOE 
oOooy7 
OoO1Ld 
OoO1 


OoO1S 
OO14 
OOS 
OOLE 


OO1e 
OoOl? 
OOBO 
OO281 


OoeS 
Oow4 
QOows 
OOS 
OO27 
OO2S 
OoO2F 
OOSO 
OOSB1 
Ogos? 
OOSS 
OOS4 
QOOSS 


0037 
0038 
oO39 
0040 
oo41 
0042 
0043 
0044 
0045 
0044 
0047 
Oo4e8 


# LO 


Oooo 
OOOO 
Oooo 
Oooo 
O000 
ele1e18) 
OOOO 
OOOO 
OOOO 
Oooo 


OOOO 
Oooo 
OoOoOd 
Oooo 


elelere) 
OOOg 
OOOO 
OOO 


OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
NOOO 
Oooo 
000d 
OO00 
Oooo 


[e181 618) 
OOOO 
OOOO 
Oo000 
O000 
OO 
Oooo 
0000 
OOOO 
Oo00 
0000 
0000 


CODE 


120.0000 .PAGE OOO] 


LINE 
SSR 
AF FENDI 

FOR Lb. 


B-29- 


5 ch 
Fg 
3K 
2k 
Sh 
Sch 
i 
Sok 
Sch 


ft fe os ft fe fs ft ee 


?BASIC VARA 
TXTFTR= $07 
BUF =$0A 

VARTAB=$ 712 


SBASIC Rwy 
CHRGET=$00r 
CHRGOT=$O00 
FINI=$0430 


SOF SYSTEM 
TEMP 1=% 50 
EAL=$E5 
EAH=$E4 
FNLEN=$EE 
FA=$F 1 
STAL=$F 7 
STAH=$F 8 
FNADR=$F 9 
VERCK=$0208 
SATUS=$O200 
TAPE 1=$027A 
TAFES=$033A 


:0P SYSTEM 
FAH=$F SAE 
LUADZ=$F440 
SAVE=$F4B 1 
PRT=$FFD2 
LD410=$F 425 
TRU=$F SSA 
TWAIT=$F913 
LERR=$F 305 
LUZIO=$F3E5 
ZZZ=$F 467 
CSTE1=$F83B 


ai 


soe cof seis cof fs efi cof oft ft ef i fst ec i es oe 
BASIC FROGRAMS 
EVEL 1 BASIC 


7? 


se etfs ef de ef fs fs fe i fs fs es dc ok dc os fs 


BLES 


INES 
= SINC TXTFTR AND GETS CHAR 
& SGETS LAST CHAR 

SFIXES LINKS 


VARABLES 
SEND ADR FOR SAVE 
SLENGTH OF FILE NAME 
:START ADR FOR SAVE 


SANKRESS OF FILE NAME 


ROUTINES 
sREAD ANY TAFE HEADER 
:COPY FTRS FROM HEADER 
s0F SYSTEM TAPE SAVE 
SFRINT CHAR IN A 
SFRINT * ING? MSG 
7READ DATA FROM TAFE 
?WAIT FOR KEYBRO TRG 
SFRT ERROR MSG 
2FRT READY.FIX VARTARB 
:SETS TBUF FTR 
:ISSUE TAPE MSG 


APFENT 


LONE 


O04 
OOO 
OoOs1 


OOS 
OOR4 
OOF FE 
OOF 
OOR7 
OOS 
OOnF7 
OO&O 
OO 
OOe? 


OOe4 
O04 
OO 
O047 
OOH 
OOG7 
OO7O 
OO71 


OO7S 
OO74 
oo75 
OO7S 


OoO7E 
OoO7 7 


Ooso 


Ooms 
OOS 
OoO84 
OoOs8s 
Oog4A 
oO087 


# LO 


0000 
Oooo 


Odo 


OOO 
OS3A 
OS3A 
OS3A 
OAS 
OBSE 
O40 
OS42 
O344 
S46 


O347 
O347 
O347 
Os4? 
O34 
OS4r 
OA4E 


OSRO 


OSS 


OS33 
O35 


O37 


OSA 
OSS0 
OS SF 


OS6A 


Ay 
Ay 


nee 


Pact Pe 


Ay 
a 


&Q 


ee 


Lo 
AE 
AS 
my 
FO 


deat 
Cy 
BO 
4c: 


20 
cy 
Cio 


AZ 
hits 
CA 
md 
me 


SE 


COE 


4a: 
(ZB 
47 


oS 
[ei 


3A 
EF 
CF OO 


Ce Oo 
41 
Fi 


O11 
Fl 


EE 
FA 
OB OF 


120....8.PAGE O008 


LINE 


LOISOO=$F SEF 
FAF=$F 475 
OF L40=$F 577 


wpaz T Py 
:SET WEDGE 
SETW LOA 
STA 
LOA 
STA 
LOA 
STA 
STRTS RTS 


: APPEND WEL 

WEDGE CMF 
BNE: 
PHA 
Die 
CMF 
REG! 


W5100 FLA 
W200 CMF 
BRS 
IMF 


WOMEN JSR 
CMF 
BNE 
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:FRINTS FILE NAME 
SSEARCHS FOR FILE BY NAME 
SFPRT °FILE NOT FOUND ERROR? 


PEZ 
CMD IN Z-PAGE CODE 


#S40 SJMF INSTRUCTION 
CHRGOT +3 

#. WEDGE SSET LO 

CHRGOT +4 

#SWEDGE :SET HI 

CHRGOT +3 


GE CMO 


#" 2A WEDGE CmMo? 
WEZOO SNC 
3MAYRE 
TXTFTR SWAS 72" IN COLUMN 1 
#2 BLIF 
WOME 2YES-WEDGE CMr 


sFINISH CHRGCT 
a? 

STRTS 

CHRGOT+7 


CHARGE T 5AN APPEND CME? 
HA 
WE1OO ING 


#1 SYES-SET FOR CASSETTE #1 
FA 

sX=$OO 
FNLEN 'ZERO LENGTH CF FILE NAME 
FNADR+ 1 SFOINT INTO Z-PAGE 
VERCE SSET FOR A LOAD 


AFPFEND 


LINE 


OOs7 
OayvO 
OoF7l 
OO72 
OOS 
0074 
Oo09ys 
OOF 


oo7s 
OO7F7 
O100 
O10] 
0102 
O103 
O104 


O104 
O107 
O10 
oO107 
O1L10 
O1l11 
OLliz 
O113 
O114 
O11 


O117 
O11s 
O11? 
O1z20 
O1z1 
O12 
O123 
O1s4 
O125 
O126 
O127 
O125 
Olsy 
O1LS0 
O1S1 
O132 
O133 
O134 
O1S5 
O14 
O137 


# 


120....2.e.FAGE 00038 


Loc 


OS40 
O370 
O37 1 
OB73 
OS75 
O377 
OS79 
O37A 


OS7C 
OS7F 
OSSoO 
Ogee 


OSSA 
OSSL 
OS7O 
OSS 
OS7S 
OSY7 
OSIA 
Ost 
OSTF 
OSAZ 


OBA4 
OSA4 
OSA4 
OSA7 
OSAS 
OSAE 
OSAC 
OBAF 
OSES 
OSES 
OSES 
OBES 
OSBS 
OSBE 
OSB 
OSEBF 
OSC2 
OBCS 
OSC4 
OSL7 
OSCA 


20 
AA 
FO 
Cy 
iare) 
A bs 
E& 
ah 


20 
AA 
FO 


FO 
E& 
no 


20 
20 
20 
AS 
FO 
20 
lio 
4c: 
20 
FO 


AD 
Be 


ED 


ALI 
EQ 
AS 
A 
tm 
EY 
BO 
AS 
EY 
Sti 
SA 
is 
40 
Past 
ae 


CODE 


Ce 


&7 
3B 
FF 
EE 
Oe 


y La 


os 
77 
AE 


= 


: 
oi 


~wJ 


70 


7B 


7E 
7% 


7 
O4 
70 


oo 
7C 


7B 
70 


Oo 


2 0) 


O22 


On 


on 


Of 


On 


Of 


on 
op 


LINE 


W100 


WO2Z00 


WO210 


WO2ZO 
W250 


sCALC 


a 
? 


W270 


JSR 
TAX 
BEG! 
CMF 
BNE 
L.D1X 
INX 
STX 


JSR 
TAX 
BEC 
CMF 
BEG 
ING 
BNE 


JSR 
JSR 
JSR 
LDA 
BEC 
JSR 
BNE 
JMF 
JSR 
BEG! 


CHRGET 


WOE1O 
#$22 
WO1O0 
TXTFTR 


FNATIR 


CHRGET 


WOZ1O 
#$22 

WO2Z1O 
FNLEN 
WEZOO 


LEL 

CSTE1 
LIOVSOO 
FNLEN 
WOEIO 
FAF 

WOS70 
QP 1L&E0 
FAH 

WO2Z2O 


3GET NEXT CHAR 

21S THIS THE END 
SYES~LOAD ANYTHING 

3A ("DF 

3 NO-LOOF 

sSTART FILE NAME CINE+ 


SFING END OF THE NAME 
sTHIS THE END? 

sYES 

SAN END DOUBLE GUCTE? 
sYES 

SNO-KEEP CHARACTER 
SBRANCH ALWAYS 


sSET TRBUF FPTRS 
SISSUE TAPE MSG 
3FRT FILE NAME 
SLOADING ANY FILE 
sYES 

INO-SEARCH FOR IT 
SSEIF IF FOUN 
SFILE NOT FOUND MSG 
SREAOQ ANY FILE 
sERROR IF NOT FOUND 


Tt 


NEW ADDRESS FOR APPEND SOURCE 


LOA 
SEC 
SBr: 
TAX 
LOA 
SBC 
TAY 
LOA 
SEC 
SBC 
STA 
LOA 
SBC 
STA 
TXA 
GLc 
ALC 
STA 
TYA 
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TAPE1+3 


TAPE1+1 


TAPE1+4 
TAPE 1+2 


VARTAE 


#4 
TAFE L+1 


VARTAR+ 1 


#0 
TAPE1+2 


TAPE I+1 
TAPE1+3 


?GET LO END ALR 
SCALC DELTA 
SSUB BEGIN Lo 


PGE 7 ENDO AR HI 
SUB BEGIN ADR HI 
SAVE IN Y 

“ALC APPEND BEGIN 


— im of 


ISET LOAD NEW START 


SNEW START HI 
SGET DELTA LO 
3CALC NEW LOAD END ADR 


sGET DELTA HI 


AP FEN 


LINE 
Oss 
O1s7 


O14] 
O142 
O143 
O144 
O14 
O146 
O147 
O145 


O10 
OLS. 
OSS 
O13 
0154 


OLS5 


O27 
O138 
Oss 
O13 
O1sY 
O160 


ERROR 


SYMBOL TABLE 


SYMBOL 


AAAA 
CSTE1 
FAF 
FNLEN 
LOADS 
PRT 
STAH 
TAFE 
TXTFT 
WOOO 
WO270 
weME 
ZZZ 
ENI! 


0 


# LOC 


OSCE 
OSCE 


Ost 
Osn4 
OSI 
OS0?7 
Oso 
OSE 
OSE 1 
OSES 


OSE4 
ORE 
ORBEA 
OSER 


120......PAGE 


401 
eo 


20 
AZ 
SE 
BD 
FO 
20 
ES 
Do 


20 
2O 
20 


AL 


OSFO FO 
OSF2 410 
OBFS 45 
OaFS OD 
OSFY 41 
OSFF OO 
0400 
O400 
So = 0000 


VALLE 


0400 
FSSB 
F475 
OOEE 
F640) 
FFD 
OOF S 
033A 
R 00cy 
0370 
O3A4 
035A 
F&d7 


OF ASSEMBLY 


0004 

Cone LINE 
7G O23 

JE Of 

40 F4 

oOo 

OR OF 

FS O38 WISOO 


Os 
DZ 


Fo 


ZE OF 
aA Fi 
13 F 
oc On: 
os 


DE 


Ea FS 
BO 


BUF 
EAH 
FAH 
LOZ1O 
LERR 
SATUS 
STAL 
TEMF1 
VARTAER 
WO21O 
WRSOO 
WEDGE 


W400 


WSO 
MSGI 


AAARA 


OOO 
OOES 
FSAE 
FSES 
FADE 
oO2oc 
OOF 7 
OOS 
Oo7C 
OS8h 
OSI 
O347 


Tm Od & 
min in oo 
DA 


BEG 


Ga 
= 
a 


JMF 


»EN 


TAPE1+2 
TAPE1+4 


LDADZ 
#0 
VERCK 
MSiG 1 » X 
W400 
PRT 


WESBOO 


¢ LO4TO+S 
¢ TRO 
. TWAIT 


SATUS 
WOSOO 


P LERR 


LIV oO 


Ci 


CHRGET 
EAL 
FINI 
LOSOO 
MSG1 
SAVE 
STRTS 
TRE 
VERE 
WO220 
WO400 
WG1LOO 
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ooCz 
OOES 
c430 
F3FF 
O3FS 
F6E1 
O44 
Fase 
OZOE 
OsgC 
OBE4 


O33 


:COPY POINTERS 
:PRT * APPENDIING* 


FOR LOAD 


MSG 


:CLEAR FOR A LOAD 
SDCNE WITH MEG 


sYES 


S BRANCH ALWAYS 


3PRINT 
sREAL 


*TNG* 
DATA FROM TAFE 


Ma 


*WAIT FOR KEY TRG RESTORE 


sEOOC 
sYES 


LOAtny 


SNO-LOAL ERROR 


:G0 FIX BASIC LINKS 
»~BYTE $01. °* AFFEND?® © 


CHRGOT 
FA 
FNADR 
LO410 
OF 1é0 
SETW 
TAFEI 
TWAIT 
WI1OO 
WOS30 
WESOO 
WEZO0 


OOS 
OOF 1 
OOFY 
F425 
F379 
O33A 
O27A 
FI13 
O340 
OS9F 
OSFS 


OS33 








SOME PET ROUTINES 


by J. Butterfield 








IN LAST MONTHS ISSUE WE FEATURED MR. BUTTERFIELD'S MEMORY MAP. 
(PG.27) TO FOLLOW IS A CONTINUATION OF THAT MAP, WHICH INCLUDES 
THE ADDRESSES OF C2AC THRU CDCO. 


C2AC-C2D9 
C2AD-C31C 
C31D-C329 
C32A-C356 
C357-C388 


C389-C391 
C394-C3A9 
C3AC-C42E 


C430-C460 


C462-C476 
C479-C48C 
C48D-C521 


C522-C550 


C551-C599 
C59A-C5A7 
C5A8-C647 
C649-C647 
C692-C6B4 
C6B5-C6EF 


C6OF2-C70A 
C70D-C71B 
C71C-C742 
C745-C75E 
C75F-C76D 
C770-C772 
CTPTS=CT LD 
C780-C79A 
C79D-C7C9 
C7CA-C7FD 
C7FE-C81E 
C820-C840 
C843-C862 
C863-C89A 
C89D-C91B 
C91C-C97E 
C97F-C982 
C985-C996 
C999-CA24 
CA27-CA41 
CA44-CA76 
CA77-CA9E 
CA9F-CAC5 
CAC6-CADF 
CAEO-CB14 
CB17-CB21 
CB24-CC1l 
CC12-CC35 
CC36-CC8F 
CC92-CCB5 
CCB8-CD38 
CD3A-Cd9C 
CD9D-CDB9 


CDBC-CDCO 


peeks at the stack for an active FOR loop 
‘opens up' a space in Basic for insertion of a new line. 
tests for stack-too-deep and aborts if found. 


sends a canned error message from C190 area, 
into: 

Signals 'ready' 

gets a line of input, analyzes it, executes it 

handles a new line of Basic from keyboard; deletes old 
line, etc. 

corrects the chaining between Basic lines after insert/ 
delete 

receives a line from the keyboard into the Basic buffer 
gets each character from keyboard 

looks up the keywords in an input lines and changes to 
"tokens" 

searches for the location of a Basic line from number 
in 8, 9 

implements NEW command - clears everything 
sets the Basic pointer to start-of-programs 
performs LIST command 

executes a FOR statement 

continues to build FOR vectors 

reads and executes the next Basic statement, 
line, etc. 

executes the Basic Command as a subroutine 
performs RESTORE 
handles STOP, END, 
performs CONT 


then drops 


finds next 


and BREAK procedures. 


CLR 
RUN 
GOSUB 


performs 
performs 
performs 
performs GOTO 

performs RETURN 

scans for start of next Basic Line 

performs IF 

performs ON 

gets a fixed-point number from Basic and stores in 8, 9 
performs LET 

check numeric digit/move string pointer 

performs PRINT# 

performs CMD 

performs PRINT 

prints string from address in Y, A 

prints a character 

handles bad input data 

performs GET 

performs INPUT# 

performs INPUT 

prompts and receives the input 

performs READ 
canned messages: 
performs NEXT 
checks Basic format, data type, flags TYPE MISMATCH 
inputs and evaluates any expression (numeric or string) 
pushes a partially-evaluated argument to the stack 
evalues a numeric, variable, or pi, or identifies 
other symbol 

value of pi in floating binary 


EXTRA IGNORED; REDO FROM START 
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MEMORY MAP FOR 16K and 32K PETS 


THE FOLLOWING MEMORY MAP REFLECTS ROM CHANGES IN THE NEW 16K/32K PETS. 


Appendix A. 
Detailed CBM Memory Map 
CBM Memory Allocation By 4K Blocks 
START 
BLOCK # TYPE ADDRESS FUNCTION 
*0 RAM $0000 Working, text, variable storage. 
1 RAM $1000 Test variable storage (8K only) 
2 - $2000 Expansion RAM 
3 $3000 Expansion RAM 
4 _ $4000 Expansion RAM 
5 $5000 Expansion RAM 
6 - $6000 Expansion RAM 
7 $7000 Expansion RAM 
8 RAM $8000 Screen memory (1K) 
9 - $9000 Expansion ROM 
10 - $A000 Expansion ROM 
11 _ $B000 Expansion ROM 
12 ROM $C000 BASIC (principally statement interpreter). 
13 ROM $D000 BASIC (principally math package). 
*14 ROM $E000 Screen editor. 
V/0 $E800 All internal CBM 1/O. 
15 ROM $F000 OS diagnostics 


*see expanded description 


Block 0 By 256 Byte Pages 


START 
PAGE TYPE ADDRESS FUNCTION 
**0 RAM 0000 BASIC OS working storage 
da | RAM 0100 Stack 
**2 RAM 0200 O S working storage 
dee RAM 0300 Cassette buffers. 
4-15 RAM 0400 BASIC text area 


** see expanded description by page 


Block 14 By 2K Segment 


START 
PAGE TYPE ADDRESS FUNCTION 
0 ROM $E000 Screen editor 
1 We) $E800 CBM I/O 
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1/0 Device Base Addresses 


START 
PAGE TYPE ADDRESS FUNCTION 
0 PIA $E810 Keyboard 
1 PIA $E820 IEEE-488 
2 VIA $E840 USR PORT cassette 
CBM PAGE ZERO MEMORY MAP 
FROM TO DESCRIPTION 
000 - $4C constant (6502 JMP instruction). 
001 002 USR function address lo, hi. 
3 Starting delimiter 
4 Ending delimiter 
5 - General counter for BASIC. 
Evaluation of variables 
6 - Flag to remember dimensioned variables. 
7. Flag for variable type; O#numeric; 1~+string. 
8 Flag for integer tape. 
9 Flag to crunch reserved words (protects ‘& remark). 
10 Flag which allows subscripts in syntax. 
11 Flags INPUT or READ. 
12 Flag sign of TAN. 
13 Flag to suppress OUTPUT (+ normal; — suppressed). 
14 Active I/O channel #. 
15 Terminal width (unused). 
16 - Limit for scanning source columns (unused). 
17 18 Line number storage 
13 Flag to suppress OUTPUT (+ normal: — suppressed). 
19 os Index to next available descriptor. 
20 21 Pointer to last string temporary lo; hi. 
22 29 Table of double byte descriptors which point to vaiables. 
30 31 Indirect index #1 lo; hi. 
32 33 Indirect index #2 lo; hi. 
34 39 Pseudo register for function operands. 
Data storage maintenance 
40 4 Pointer to start of BASIC text area lo; hi byte. 
42 43 Pointer to start of variables lo; hi byte. 
44 45 Pointer to array table lo; hi byte. 
46 47 Pointer to end of variables lo; hi byte. 
48 49 Pointer to start of strings lo; hi byte. 
50 51 Pointer to top string space lo; hi byte. 
52 53 Highest RAM adr lo; hi byte. 
54 55 Current line being executed. A two in 54 means statement 
executed in a direct command. 
56 57 Line # for continue command lo; hi. 
58 59 Pointer to next STMNT to execute lo; hi. 
60 61 Data line # for errors lo; hi. 
62 63 Data statement pointer lo; hi. 
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Expression evaluation 


Source of INPUT lo; hi. 

Current variable name. 

Pointer to variable in memory lo; hi. 

Pointer to variable referred to in current FOR-NEXT. 
Pointer to current operator in table lo, hi. 

Special mask for current operator. 

Pointer to function definition lo; hi. 

Pointer to a string description lo; hi. 

Length of a string of above string. 

Constant used by garbage collect routine. 

$4C constant (6502 JMP inst). 

Vector for function dispatch lo; hi. 

Floating accumulator #83. 

Block transfer pointer #1 lo; hi. 

Block transfer pointer #2 lo; hi. 

Floating accumulator #1. (USR function evaluated here). 
Duplicate copy of sign of mantissa of FAC #1. 
Counter for # of bits of shift to normalize FAC # 1. 
Floating accumulator #2. 

Overflow byte for floating argument. 

Duplicate copy of sign of mantissa. 

Pointer to ASCII rep of FAC in conversion routine lo; hi. 


CHRGOT RAM code. Gets next character from BASIC text. 
CHRGOT RAM code regets current characters. 

Pointer to source text lo; hi. 

Next random number in storage. 


324 Hr clock in 1/60 sec. 
;IRQ RAM vector 

:BRK inst ram vector 
;NMI RAM vector 

;I/O operation status byte 
;last key index 


correction factor for clock 
Verify flag 

Index to keyboard queue 
Reverse field on 

Multiply defined 

Cursor on flag 

Count of jiffies to blink cursor 
Multiply defined 

Character saved during blink 
Multiply defined 

;Pointer into logical file table 
;Default input device # 
;Default output device # 
;Vertical parity for tape 
Multiply defined 

SYNC on tape header count 
Pointer to active cassette 
Multiply defined 

Bit/byte tape error 


64 65 
66 67 
68 69 
70 71 
72 73 
74 =~ 
75 76 
77 78 
79 ne 
80 = 
81 os 
82 83 
84 89 
90 91 
92 93 
94 99 
100 ae 
101 -- 
102 107 
108 -- 
109 =~ 
110 111 
RAM subroutines 
112 == 
118 = 
119 120 
136 140 
Operating System page zero storage 
141 143 
144 145 
146 147 
148 149 
150 in 
151 - 
152 — 
153 154 
157 =e 
158 = 
159 << 
160 166 
167 = 
168 a 
169 = 
170 aa 
171 173 
174 “= 
175 = 
176 ~ 
177 - 
178 185 
186 = 
187 188 
189 = 
190 - 
191 - 


Reading shorts 
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192 Index to addresses for tape error correction 


193 -- Multiply defined 

194 -- Flag for cassette read..tolls* 
195 = Count of second of shorts to write before data 
196 197 Pointer to cursor position 
197 198 Multiply defined 

199 200 Load start address 

201 202 Load end address 

203 - 

204 -- 

205 -- Quote mode flag 

206 208 Multiply defined 

209 -- ;Length current file name Str 
210 -- ;Current file logical addr 

211 -- ;Current file 2nd addr 

212 -- ;Current file primary addr 
213 217 Multiply defined 

218 219 ;Addr current file name str 
220 221 Multiply defined 

222 -- ;Cassette read block count 
223 - Multiply defined 

224 248 Table of LBB of start addr of video display lines 
249 -- 

250 - 

251 -- 

252 -- 

253 254 


Page 1 


62 byte on bottom are used for error correction in tape reads. Also, buffer for ASCIIl.when BASIC is 
expanding the FAC into a printable number. The rest of page 1 is used for storage of BASIC GOSUB and 
FOR NEXT context and hardware stack for the machine. 


CBM PAGE TWO MEMORY MAP 


FROM TO DESCRIPTION 
512 592 ;Basic input buffer 
512 513 program counter 
514 -- processor status 
515 accumulator 
516 X index 
517 Y index 
518 Stack pointer 
519 520 ;User modifiable IRQ 
593 602 ;Logical file numbers 
603 612 ;Primary device numbers 
613 622 ;Secondary addresses 
623 633 Keyboard Buffer 
634 825 Tape buffer #1 
826 1017 Tape buffer #2 
1018 1019 Unused 
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PASSWORD _ ROUTINE by F.L. Peters 








5 PRINT" 


":Y=0 


10 POKE 525,0:WAIT 525,4 

20 GET AS$,BS$,C$,D$ 

30 IF A$+BS$+CS$+DS$="TEST" GOTO 60 

40 Y=Y+1:IF Y=2 GOTO 999 

50 GOTO 10 

60 REM***PROTECTED PROGRAM STARTS HERE*** 
999 END 


This short password routine can be modified for any password, 
and is very useful to stop unauthorized access to programs or 
files, and the password will not be printed. Here is what each 
step does: 


LINE 


LINE 


LINE 


LINE 


LINE 


LINE 


LINE 


Sie 


LO 


20: 


30: 


40: 


50: 


Clears the screen and sets the value of variable Y to 
zero. Y is the variable used to count the number of 
attempts at inputing the password. 


Location 525 is the keyboard counter and keeps track of 
the number of keys that has been typed since the keyboard 
was last strobed. By POKING zero into location 525 the 
PET is fooled into thinking no keys have been typed. The 
WAIT statement makes the PET wait until a set number of 
keys has been typed. Example: WAIT 525,X where X is the 
number of keys to be typed before the input is used by 
the PET. The value is the number of letters in the pass- 
word. 


This is the use of the GET command to input characters 
from the keyboard. The number of GET variables will be 
the number of letters in the password with each variable 
corresponding to each letter of the password. 


Here the GET variables are assembled into a word to be 
tested against the password. If the input word matches 
the password the program goes to line 60 where the 
protected program starts. The password is contained in 
the "  " marks in this statement. 


Here the Y variable is incremented by one each try and 
then tested to see if the limit of attempts has been 
reached. In the following example the "X" indicates 
the number of tries at inputing the password and if 
exceeded the program goes to line 999 and stops. An 
example: IF Y="X" GOTO 999 


Loops back to line 10 for another try if the number of 
attempts is below the number allowed in line 40. 


999:Contains the END command to stop the program. 
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‘BITS AND PIECES 
SWITCHING FROM THE PRINTER TO THE SCREEN 


The following program illustrates a technique for switching a 
CMD mode from the Printer to the screen and back. This avoids 
the necessity of saying 'PRINT#:CLOSE' every time you wish to 
exit a CMD mode. 


160 REM***THIS 1S A METHOD OF SWITCHING FROM THE PRINTER TO THE SCREEN 
118 REM**eWITHOUT REVERTING TO A 'SYNTAX ERROR® OR SOME OTHER ABNORMAL 
120 REM***END OF THE PRINT COMMAND. 
138 REM***GLENN HOELSCHER 
148 REM***5773 DEXTER CIRCLE 
150 REM***ROHNERT PARK* Che 94928 
16@ REM***7074+542-6773 
17@ PRINTSPRINT 
200 OPEN 4*4:CMD 4:REM***OPENS PRINTER IN NORMAL WAY 
21% PRINT "THIS SHOULD COME OUT ON THE PRINTER"SREM***THIS IS THE MESSAGE 
220 CLOSE 4%REM***NORMAL CLOSE OF ABOVE COMMAND 
232 REM***NOTICE* NO PRINT # WAS NEEDED AND #?' 1S A VALID PRINT COMMAND 
3@@ OPEN 4*3°:CMD 4:REM***NOW WE DIRECT OUR PRINT TO THE SCREEN*#* 
318 PRINT "THIS SHOULD COME OUT ON THE SCREEN" 
328 REM***AGAINs NO NEED FOR A PRINT # AND '?"' JS A VALID COMMAND 
338 REM***SINCE WE WANT TO GO BACK TO PRINTER* WE MUST CLOSE THE SCREEN 
34@ CLOSE 4:G0TO 208 
READY 


PROTECTING PROGRAMS 








For those of you concerned about unauthorized copying of your 
programs, Len Lindsay of the PET GAZETTE has fowarded to us 
the name of a vendor who may be able to solve your problem. 
Mr. Lindsay visited. BC COMPUTING and was fortunate enough to 
spend an hour with the main PET programmer. He was very 
impressed by their system and is pleased to announce that it 
works! 


According to Mr. Lindsay, you can load a protected program by 
typing L-O-A-D, (RETURN). You will then be amazed to see the 
program LOAD and inmediately RUN! If for some reason you manage 
to break out of the program (the stop key does not work) the 
program will not LIST correctly and you lose control of your 
PET and have to turn it off and on again. A SAVE will not work, 
neither will the SYS equivalent. 


Adding this protection is very complex so BC COMPUTING charges 
a nominal fee for the service of protecting your program. 


For further information please write to; 


BC COMPUTING 
2124 Colorado Ave. 
Sun Prairie, WI 53590 
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Users’ Directory & 


Announcements 


One of the major advantages in being a member of the PET USERS' CLUB is the 
ability to get hold of PET related Software and ideas. Although our Master Library 
of programs is now growing, we get frequent Software inquires for a wide range 

of applications. 

In this issue, we have included the current Users' Directory, containing lists 

of people writing software, importing literature or starting local PET Groups. If you 
would like to use your PET for fun and profit, why not offer personal tutoring in 
PET programming to new PET owners. Alternatively, if you require a program to 
be written for you, ask for contacts via the USERS' DIRECTORY. The possibili- 
ties are endless. Please write to the EDITOR, U.S. PET USERS' CLUB, at 

our NEW address below. 


To include your name in the USERS' DIRECTORY, please complete the following 
form: 


ey es emt sees st cet ed Yet tt SSO nes SOD YS ed ss ms Des ese SY ng ins SH tes tS tS dS at ps STD GS hSDN ySY nes SY es Py SS 


TO: THE EDITOR, U.S. PET USERS' CLUB, Commodore Business Machines 
Inc., 3330 Scott Blvd., Santa Clara, Calif. 95050. 


NAME: 
ADDRESS 


SERVICES OFFERED/SPECIALIST AREA OF INTEREST: 


To include as many contacts as possible, we must restrict each USER to only one 
line of description. 


COMMODORE reserves the right to edit or withdraw any entry. 


RKKEKKERE KEK KEE KKK KEK KKK KKK KKK KEK KKK KEK KEKE KEK KK KEKKES 
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LISTED BELOW ARE PET USERS WHO HAVE RECENTLY SUBMITTED THEIR 
SPECIALTY OR AREA OF INTEREST TO FURTHER COMMUNICATION WITH 


PET OWNERS THROUGHOUT THE UNITED STATES. 


IF YOU WOULD LIKE 


TO OFFER YOUR SERVICES TO OTHERS, PLEASE FILL OUT THE "USER 
DIRECTORY" FORM ON THE PREVIOUS PAGE. 








NAME AND ADDRESS 











SERVICES OFFERED/SPECIALTIES 








Charles & Robert Ames 
1717 Penn 
Joplin, MO 64801 
Nilan R. Beardall 
Brigham Young Univ. 
175 TMCB 
Provo, Ut. 84602 

Charles Branson 

Box 3061 University Station 
Moscow, ID 83843 


Dave Caulkins 

The PCNOT Committe 
340 E. Middlefield Rd. 
Mtn. View, CA 


Russell Grokett 
PET Library 


401 Monument Rd. Apt 177 
Jacksonville, FL 
Innovision 

P.O. Box 1317 

Los Altos, CA 94022 


Marvin Mallon 
6914 Berquist Ave. 
Canoga Park, CA 91307 


Microsette Co. 
777 Palomar Ave. 
Sunnyvale, Ca 94086 


Bob Nathanson 

Kings Park High School 
Route 25A 
Kings Park, NY 11754 
Carl C.. Peck, M.D. 

56 Hillcrest 


Larkspur, CA 94939 


Programming in BASIC, FORTRAN, ASSEMBLY 
ASSEMBLY LANGUAGE on all systems. 


General purpose, Games 


EDUCATION/GAMES/etc. 


ELECTRONIC MAIL SYSTEMS VIA 
PETS with MODEMS. 


JAPS-Jax Area PET Society offers 
PET Software. $1.50 per program 
SASE for list to PET LIBRARY 


Innovision offers both Software 
and Hardware (such as low cost 
device to allow handwritten 
character input to the PET). 


Business and Engineering 
Applications. 


Duplication of cassette 
programs. 100 quantity minumum. 


Using PETS for both high school 
students and Adult Education 
classes in computer literacy. 


Math modeling ad, simulation, 
pharmacokinetics, biostatistics. 


Bi 














NAME AND ADDRESS SPECIALTY 





Princeton Energy Group Passive solar heating and 
729 Alexander Rd. cooling, building design 
Princeton, NJ 08540 


Thomas B. Simpson Home Applications Programming 
5557 Coddington, Apt. 1C 
Kalamazoo, MI 49009 


Rev. James Strasma Church related programs and 

120 W. King St. programming service. 

Decatur, IL 62521 (Central Illinois PET Users) 

Ed Zwieback Real Estate Fianance, Acoustics 


175 Cordova Walk 
Long Beach, CA 90803 


PRIOR RR AD ND DDN DDD DODD WV WD NWN VV VV DV DM DVD DDN FVD VV VV VV VV VV VV VV 











If you have found your blank cassettes of inferior quality for 
creating programs you may wish to try AGFA's. These were recom- 
mended to us by Len Lindsay of the PET GAZETTE. He feels they 
produce one tape which is far superior to ALL others which can 
be used with the PET. These cassettes use "AGFA Premium" tape. 
You should be careful of companies advertising AGFA tapes 

for there are several different grades. "AFGA Premium" tape in 
the highest quality cassette housing are available from 
COMPUTER WAY. Their prices on AGFA Premium C-10 cassettes are 
lower than others advertised. 


25 at $1.00 each (total $25) 
50 at $0.96 each (total $48) 
100 at $0.85 each (total $85) 
200 at $0.80 each (total $160) 
400 at $0.75 each (total $300) 
Approved Computer Clubs receive a 10% discount on orders of 200 
or more. Shipping and quick delivery anywhere in the USA is in- 
cluded but boxes are extra. Order directly from: 
COMPUTER WAY 


P.O. BOX 7006 
Madison, WI 53707 
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THE LIST OF PET USER GROUPS LISTED BELOW IS BY NO MEANS 
COMPLETE. PLEASE NOTIFY US IF WE OMITTED YOUR GROUP. 


Association of Personal Computer Users 


5014 Rodman Rd. ...... . Bethesda, MD 
Amateur Computer Group of New Jersey 

Box 379... . . . South Bound Brook, NJ 
Bambug 

1450 53rd St. Emeryville, CA 


JAPS-JACKSONVILLE AREA PET SOCIETY ' 
401 Montment Road #177... . . Jax, Florida, 


Lawrence Hall of Science, UC Berkeley 
Computer Project, Room 254. . Berkeley, CA 


Las Vegas PET Users 
4884 Iron Ave ..... . . Las Vegas, Nev. 


Lincoln Computer Club 
750 E. Yosemite . ... . . Manteca, CA 


Madison PET Users 
1400 East Washington Ave. Madison, WI 


Northern New England csiascuele 3 Society 
P.O. Box 69 o} he » » » » ‘Berlin, NH 


North Orange County Computer Club 
3030 Topaz, Apt. A... . Fullerton, CA 


Northwest PET User Group 
P.O. Box 482 ... .. . Vashon, WA 


PET User Club (CAPE) 
2054 Eakins C7 ..... . «s« Reston, VA 


PET User Group 
2235 Lakeshore Dr. + « + »« «Muskegon, MI 


PET User Group c/o Meyer 
35 Barker Ave. - . .White Plains, NY 


PET User Group * # 3 


Texas A & M Microcomputer Club, Tex. A & M, Tex. 


PET User Group 
P.O. Box 371 . .. . Montgomeryville, PA 


PET User Group 
2323 Washington Blvd. .. . Ogden, Utah 


PUG 
7170 S.W. llth St., West Hollywood, Fla. 


PUG of the Silicone Valley 


22355 Rancho Vertadsscesisanees Cupertino, Calif. 
Sacramento PET Workshop 

P.O. Box 26314 .... . . Sacramento CA 
SCOPE 

1020 Summit Circle .. . Carrollton, Texas 
SPHINX 

314 0th Aves «9% 6 «ss & «@ Oakland, CA 


St. Louis Club 
40 Westwood Court ..... St. Louis, Mo. 


The Human Society--United PET Users 
1929 Northport Dr. #6... . Madison WI 


Valley Computer Club 
P.O. Box 6545 n+ « «= & woe Bearbank, CA 
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20016 


07076 


14608 


32211 


94720 


89110 


95336 


53703 


03570 


92361 


98070 


22091 


4944] 


10610 


18936 


84401 


33023 


95014 


95826 


75006 


94606 


63131 


53704 


91510 


NEW DEALERS 


IN LAST MONTH'S 
DEALERS. 


AND ARE PASSING THEM ONTO YOU. 


ARE SIMPLY A CHANGE OF ADDRESS. 


ALASKA 


Klopf Words 

SR 51367 
Fairbanks 99701 
907-452-8502 


CALIFORNIA 


Active Business Forms 
1148 Alpine Rd., Suite A 
Walnut Creek 94596 
415-938-1230 


The Base Station 
2101 Pacheco St. 
Concord 94520 
415-685-7388 


Computer Age, Inc. 

4688 Convoy St., Suite 105 
San Siego 92111 
714-565-4042 


Computerland/Belmont 
1625 El Camino Real 
Belmont 94002 
415-595-4232 


COLORADO 


The Neighborhood Store 
13045 W. Alameda Pky. 
Lakewood 80215 


ILLINOIS 


Appletree Stereo, Inc. 
1022 W. Lincoln Hwy. 
DeKalb 60115 
815-758-2442 


Computerland/Arlington Hgt. 


50 E. Rand Rd. 
Arlington Heights 60004 
312-255-6488 


Computerland/Downers Grove 
136 W. Ogden Ave 

Downers Grove 60515 
312-964-7762 


Computerland/Marin 
1930-4th St. 

San Rafael 94901 
415-459-1767 


Computerland/Pasadena 
81 N. Lake St. 
Pasadena 91101 
213-449-3205 


Computerland/San Diego East 


2992 Navajo Rd. 
El Cajon 92020 
714-464-5656 


Computerland/Santa Maria 
223 S. Broadway 

Santa Maria 93454 
805-928-1919 


FLORIDA 


Computerland/Jacksonville 
2777-6 University Blvd. 
Jacksonville 32217 
904-731-2471 


Appletree Stereo, Inc, 
1645 N. Alpine 
Rockford 61107 
815-226-9826 


Computerland/Mundelein 
1500 S. Lake St. 
Mundelein 60060 
312-949-1300 


Orcutt Business Machines 
431 First St. 

LaSalle 61301 
815-224-2774 
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ISSUE WE PUBLISHED A 4 PAGE LIST OF OUR CURRENT 
SINCE THAT DATE WE HAVE ACQUIRED SEVERAL MORE DEALERS 
PLEASE NOTE THOUGH THAT A FEW 


Computer World, Inc. 
3808 W. Verdugo Ave. 
Burbank 91505 
213-848-5521 


Computer World, Inc. 
5848 Sepulveda Blvd. 
Van Nuys 91411 
213-786-7411 


Computer World, Inc. 
6789 Westminster Ave. 
Westminster 92683 
714-898-8330 


GEORGIA 


Olson Electronics 
3131 Campbellton Rd. 
Atlanta 30311 
404-349-3628 


Appletree Stereo, Inc, 
117 E. Beaufort St. 
Normal 61761 
309-452-4215 


INDIANA 


Stewart Business Machines 
4778 Broadway 

Gary 46408 

219-884-9474 


MASSACHUSETTS 


New England Electromics Co. 


679 Highland Ave. 
Needham 02192 
617-449-1760 


MICHIGAN 


Computermart of Royal Oal 
560 W. 14 Mile Rad. 
Clawson 48017 
313-288-0040 

Lafayette Radio Elec. 
34208 Van Dyke 
Sterling Heights 48 
313-268-8550 


MINNESOTA 


" 


Johnsons RIC Sale 
1325-97th Ave. WN. 
Coon Rapids 
612-755-7037 
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NEW JERSEY 


Cardiotronics 
639 Ridge Rd. 
Lyndhurst 07071 
201-935-6677 


S.S. Computer Enterprises 
224 E. Madison Ave. 
Cresskill 07626 
201-567-8076 


NEW YORK 


Computerland/Nassau Cnty. 
79 Westbury Ave. 
Carle Place, L.I. 
516-742-2262 


11514 


NY Astrology Ctr. Book Store 


127 Madison Ave. 
NY City 10016 
212-679-5676 


KANSAS 


Personal Computer Center 
3819 W. 95th St. 
Overland Park 66026 
913-649-5942 


Lafayette Radio Elec. 
3127 W. Huron 
Pontiac 48054 
313-681-7400 


Main System, Inc. 

1161 N. Ballenger Hwy, S.8 
Flint 48504 

313-232-3130 


Zim Computers 

5717 Xeres Ave 
Brooklyn Center 55429 
612-560-0336 


Saturn Management, Inc. 
600 Washington Ave. 
Carlstadt 07072 
201-939-4800 


Thor Electronics Corp. 
321 Pennsylvania Ave. 
Linden 07036 
201-486-3300 


Olson Electronics 
711 Main St. 
Buffalo 14203 
716-856-2504 


Olson Electronics 
3259 Sheridan Dr. 
Buffalo 14226 
716-837-6300 
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MARYLAND 


Your Own Computer, LTD. 
10678 Campus Way South 
Upper Marlboro, 20870 
301-350-3500 


Olson Electronics 
14243 Gratiot 
Detroit 48205 
313-372-1317 


NEW YORK 


United Photocopy Co., Inc. 
41 Union Square 

NY. NY 10003 

212-929-4826 


Olson Electronics 
4401 Transit Rd. 
Buffalo 14221 
716-633-6644 


Olson Electronics 
3768 Seneca St. 
West Seneca 14224 
716-675-4330 


OHIO 


Computerland/Columbus 
6429 Busch Rd. 
Columbus 43229 
614-888-2215 


Inductive Components 
1200 Ferris Rd. 
Amelia 45102 
513-752-4731 


OKLAHOMA 


Audio Horizons 

3707 E. Frank Phillips 
Bartlesville 74003 
918-333-7748 


OREGON 


Computerland/Portland 
12020 S.W. Main St. 
Tigard 97223 
503-620-6170 


TEXAS 


Foleys 

2103 Ernestine 
Houston 77023 
713-651-6070 


WASHINGTON 


Omega Computers 

839 - 106th Ave. NE 
Bellevue 98004 
206-455-1138 
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Olson Electronics 
414 Northfield Rd. 
Bedford 44146 
216-663-5970 


Olson Electronics 
36212 Euclid Ave. 
Willoughby 44094 

216-946-5457 


Olson Electronics 

1193 W. Pleasant Valley Rd. 
Parma 44134 

216-888-6366 


Bradford Brothers 
507 S. Main 
Tulsa 74103 
918-584-4558 


PENNSYLVANIA 


The Computer House 
1000 Greentree Rd. 
Pittsburgh 15220 
412-343-1339 


UTAH 


Computerland/Houston Bay A. The Computer Works 
17647 El Camino Real 740 S. State St. 
Houston 77058 Provo 84601 
713-488-8153 801-374-0204 


Omega Computers 
5421 - 196th SW 
Lynwood 98036 
206-775-7585 
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COMMODORE BUSINESS MACHINES, INC. 
3330 SCOTT BLVD. 
SANTA CLARA, CA 95050 


COMMODORE/MOS 

VALLEY FORGE CORPORATE CENTER 
950 RITTENHOUSE ROAD 
NORRISTOWN, PENN 19401, USA 


COMMODORE SYSTEMS DIVISION 
360 EUSTON RD. 
LONDON NW1 3BL, ENGLAND 


COMMODORE BUROMASHNINEN Gmblii 
FRANKFURTER STRASSE 171-175 
6078 NEW ISENBURG WEST GERMANY 


COMMODORE JAPAN LIMITED 
TAISEI-DENSHI BUILDING 
8-14 lkue 1-CHOMEASAHI-KU, OSAKA 535 JAPAN 


COMMODORE ELECTRONICS (HONG KONG) LTD. 
WATSONS ESTATES 

BLOCK C, lith FLOOR 

HONG KONG, HONG KONG 


P/N 320851-A04 and AO5 
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Commodore Business Machines, Inc. Bulk Rate 
3330 Scott Road Ure sede 
Santa Clara, California 95050 SERA ENGIIOE 
San Jose, CA 
95131 
0180480 55021 90612 00102 
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Dated Material Do not forward 


